From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 15 Oct 1997 23:12:54 +0000 (+0000)
Subject: (Fstring_to_number): Handle NEGATIVE for floats too.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~79020
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=142d91357fe87de90bfe7e789cd57ada662fc349;p=emacs.git

(Fstring_to_number): Handle NEGATIVE for floats too.
---

diff --git a/src/data.c b/src/data.c
index 8b970959f9e..8a3d7191f07 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1997,7 +1997,7 @@ Floating point numbers always use base 10.")
   
 #ifdef LISP_FLOAT_TYPE
   if (isfloat_string (p))
-    return make_float (atof (p));
+    return make_float (negative * atof (p));
 #endif /* LISP_FLOAT_TYPE */
 
   while (1)